the vintage example file is called myPlotDiff.R shows what was intended of this call which has been refactored to plotBetaDiff and has its own example file.

Hi @danielinteractive, there's probably some design questions here on how we want the plot to look, could you review and share what do you think please ? The colours chosen are from a colour blind friendly template

Hi @danielinteractive, I'm about to make .svg files for expect_doppelganger but wanted to check what you think of these plots. I am referring to the crmPack repo to do this... first time!

Hi @danielinteractive, I'm about to make .svg files for expect_doppelganger but wanted to check what you think of these plots. I am referring to the crmPack repo to do this... first time!

Hi @audreyyeoCH , ok cool, can you copy/paste screenshots of the plots here? Then it saves me time to install and run the branch package version

Awesome, thanks for checking them out, here they are:

parX <- c(1, 52) # prior  parameters of experimental arm
parY <- c(5.5, 20.5) # prior  parameters of control or SOC
plotBetaDiff( # plot1
  parY = parY,
  parX = parX,
  Go_cut = 0.3,
  Stop_cut = 0.1, # below a difference of 10%, is an unsuccessful trial
  shade = TRUE,
  note = TRUE
)

With uniform prior

plotBetaDiff( # plot2
parY = c(1, 1), # prior  parameters for experimental arm
  parX = c(1, 1), # prior parameters for control or SOC arm
  Go_cut = 0.3,
  Stop_cut = 0.1, # below a difference of 10%, is an unsuccessful trial
  shade = TRUE,
  note = TRUE
)

ok I see we have to fix the P(S)there....

ok I see we have to fix the P(S)there....

Thanks they look nice, yes I would also think P(Stop) would be better